#!
$sentence = " the quick brown fox jumped over the lazy dog";
@words = split(/ /,$sentence);

print join(" ", reverse sort @words);

print "\n\n";
@numbers = (7,4,6,9,0,1,5);
print join("\n",sort @numbers);